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I'm very sorry for the lengthy delay in 
getting this issue out. I really want to 
THANK everyone of you for your patience and 
understanding. We truly are trying and we 
have NOT lost interest in producing this 
publication. I do enjoy writing it. 

As you can see we have not gone out of 
business nor do we have any such plans. Its 
interesting how these rumors get started. 
Its almost like someone wants us out of the 
99/^A business. Well I have news for them 
its going to take a lot more than a couple 
of rumors to get us out. We like it too 

muchi The past few months have been quite 
hectic with new product 
some time consuming legal 
new product department we 
goodies planned and started and as soon as 
they are ready we will let you know. In the 
not so new department we are working on 
finishing up that book and program we 
talked about last year. 

The reason we have been sending back the 
renewals, that many of you have sent in, is 
because we have not completed your original 
subscription yet. I know the subscription 
form said "1 Year (12 Issues)" and that the 
first year is up. However we still have 5 
more issues to go before the "12 Issues" 
are completed. You paid for 12 issues so we 
owe you 12 issues, I don't care how the 
rest of the publishing industry handles it. 
After these are completed we are looking at 
producing this publication in a different 
form. As you know it has been very hard to 
get this out in a timely fashion and still 
handle other new items. So what we are 
looking at is publishing a large issue 3 or 
4 times a year and sending out a brochure 
to let you know its ready. I have a hard 
time sleeping at night, since I*m so far 
behind on this newsletter, knowing that you 



believed it would be published everv month . 
As soon as we know exactly how we are going 
to handle the newsletter after the first 12 
issues we will let you know. We are NOT 
abandoning the MA or compatible computer, 
30 long as you don't. It is still the BEST 
Home Computer around and there are a lot of 
GOOD things about to happen, for all of us, 
from a number of companies. So lets 
continue to prove the industry wrong and 
show them that there truly is life after 
death I? 



Within the next couple of months we will 
be sending out a new catalog to everyone on 
our mailing list. This catalog will contain 
some new software and books as well as all 
of our other items. What we would also like 
to include in this catalog is a complete 
listing of the 99/MA and TI PC Users Groups 
from around the world. Along with the User 
Groups list we will also include a complete 
listing of all the dealers that are 
currently carrying our products. 

In order to provide the most up to date 
listing of the Users Groups we ask that 
every Group that would like to be listed to 
please send us the following information: 
Group Name, Complete Address, Person to 
Contact, Phone Number, Total Group 
Membership, Library Size, Group BBS Number 
and the subscription rate for your 
newsletter. If your group prefers not to 
give out some of the above information 
we'll understand and we will place an N/A 
in that section of the listing. Even though 
our database already contains most of the 
Users Groups we will only publish the names 
that are sent in. So please help us spread 
the word to all Groups, there are a lot of 
4A users out there looking for groups and 
newsletters. 



Hi 
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Q&A 



Before we start the Q & A section I must 
ask once again to PLEASE not send self 
addressed stamped envelopes with your 
questions, I hate to see money go to waste 
but time does not permit me to respond 
except through the newsletter. I also feel 
this is the best way since we receive many 
similar questions and I think everyone 
would like to read them. OK enough of that 
so lets get started. 

What is the latest information on the 
Sci Tech RAM Disk Card? 

Well its not a Sci Tech project any more 
it has been turned over to another company 
by the name of Computronics which is in 
Corona California, They can be reached at 
(71^) 369-5964, I've been told that this 
phone number is answered 24 hours a day. 

This project is way behind schedule so 
I'm still not sure when it will be ready or 
how much the unit will cost. We were only 
contracted to do the software for the unit 
in two phases. Phase one of the software 
has been completed since October of 84', 
all it needs is a prototype card to marry 
it to for testing purposes. After it is 
tested out we can move on to phase two and 
complete the software. I believe that the 
target price for this unit with 128K of RAM 
will be comparable to the Foundation 128K 
Card. Since it is now being handled by a 
company that is new to the 4A market place 
please go easy on them. However, a phone 
call with your vote of confidence might 
help speed things up a little!. 



Are the rumors about the 99/8 clone 
true? Do you think it is for real this 
time? 

From what I currently know about this 
new computer it should be much better than 
a 99/81 So lets not call it a 99/8 clone 
any more lets just call it the the ''Mystery 
Machine". I know we have all heard this 
story many times before but this time it 
really looks like we will have a new and 
very powerful big brother for our 4A's. The 
exact details of this computer are 
currently not available for release, I 
believe the company that is working on it 



is planning on debuting it at the 1985 June 
CES show in Chicago, So keep your fingers 
crossed and we'll keep you posted. 



What the heck is going on between 
Millers Graphics and CorComp. 

Because of time consuming legal dribble 
I can't say too much at this time. As you 
may be aware CorComp filled for Bankruptcy 
back in September of 84'. Well we were one 
of the companies that they filled against, 
OuchI We thought we could work things out 
with them but alas communications have 
broken down. No Pay - No Work. Until the 
legal system gets through with this mess we 
can't say much more so stay tuned to this 
spot for the next episode of "As The 
Electron Turns", 

P.S. Many thanks to everyone on 
CompuServe and The Source for your support 
on this matter. 



LETS GET STARTED WITH THE FUN STUFF 

The following XB program loads the 
uncompressed assembly file on the next page 
to activate an interrupt driven time clock 
on your monitor. After assembling the 
source code, type in and save this XB 
program as DSK1.L0AD. Then whenever you 
select XB from the menu the clock will 
start up. Have fun. 



1 ! Clock Loader 

(DIS/FIX 80 obj file) 
and clock setter program 
by Paul Schippnick 



2 CALL INIT 
K1 .CLOCK"): 
K") 



: CALL LOAD("DS 
CALL LINK("CLOC 



3 DISPLAY ATC 12, 1 ) : "TIME? 

" :: ACCEPT ATC 1 2 , 6 )SIZEC 

-6)BEEP VALIDATE(DIGIT) :TIME 
$ :: CALL LINK("SETCLK",TIME 

$) 

4 CALL CLEAR :: CALL L0AD(-3 

1952,255.231,255,231)1 

This clears the load 

program out of memory like 

'NEW' does. 



^ 



^ 



"^ 



^ 



CLOCK ROUTINE FOR USE BY EXTENDED BASIC - ASSEMBLE THIS FILE UNCOMPRESSED 

ROUTINE IS LOADED BY: 

CALL INIT 

CALL LOAD C "DSK 1 . XCLOCK " ) 

CALL LINK("CLOCK") 

EXECUTION BEGINS UPON RETURN TO X-BASIC 

TO SET CLOCK (ASSUME TIME IS 3:31 PM): 
THE FORMAT IS HHMMSS 

CALL LINKC^SETCLK", "153100") 

DOUGLAS C. WARREN 
12/05/8i; 



r 





DEF 


CLOCK, SETCLK 


VMBW 


EQU 


>2024 


STRREF 


EQU 


>2014 


GPLWS 


EQU 


>83E0 


STATUS 


EQU 


>837C 


NEXT 


EQU 


>70 


ISR 


EQU 


>83C4 


TIMER 


EQU 


60 


COUNTR 


DATA 


TIMER 


WSR 


BSS 


6 


R3LB 


EQU 


*+1 




DATA 


>8090 




DATA 


>909A 


R5LB 


EQU 


$+1 




DATA 


>9090 


H6LB 


EQU 


$+1 




DATA 


>9A90 


R7LB 


EQU 


$+1 




DATA 


>9092 


R8LB 


EQU 


$+1 




DATA 


>9096 


R9LB 


EQU 


*+1 




DATA 


>9A94 




DATA 


>0100 


R11LB 


EQU 


$+1 




DATA 


>6060 


R12LB 


EQU 


*+1 


R13LB 


EQU 


*+3 


R14LB 


EQU 


$+5 


R15LB 


EQU 


$+7 




DATA 


>0006 




BSS 


6 



VDP MULTIPLE BYTE WRITE EQUATE 

STRING REFERENCE EQUATE 

GPL WORKSPACE ADDRESS 

STATUS BYTE ADDRESS 

NEXT ENTRY IN GPL INTERPRETER 

ISR HOOK ADDRESS 

COUNTER FOR 60th OF SECOND LOOP COUNTER 

LOOP COUNTER 

R0-R2I BEGINNING OF OUR WORKSPACE REGISTERS 

R3I A SPACE AND THE TEN'S HOUR DIGIT 
R4I THE ONE»S HOUR DIGIT AND A COLON 

R5I THE TEN'S AND ONE'S MINUTES DIGITS 

R6I A COLON AND THE TEN'S SECOND DIGIT 

R7I THE ONE'S SECOND DIGIT AND COMPARISTON DATA 

R8l COMPARISON DATA 

R9I COMPARISON DATA 
R10I 

Rill DATA USED TO CONVERT ASCII DATA FOR BASIC SCREEN 



R121 BEGINNING OF STRING BROUGHT IN THROUGH 'SETCLK' 
R13-R15I SPACE FOR DATA BROUGHT IN THROUGH 'SETCLK* 



HOOK 

CLOCK 

START 



« 

CLKl 



SCRN 



DATA 

MOV 

LWPI 

DEC 

JNE 

LI 

MOV 

A 

CB 

JOT 

MOVE 



START 

@HOOK,§ISR 

WSR 

eCOONTR 

SCRN 

RO , TIMER 

R0,@COUNTR 

R10,R7 

R9,R7 

SCRN 
R8,R7 



THIS IS THE START OF OUR PROGRAM 

LOAD THE ISR HOOK WITH THE START ADDRESS 

LOAD OUR WORKSPACE REGISTERS 

HAS A MINUTE PASSED YET? 

NOl 

PREPARE TO RELOAD COUNTER 

RELOAD COUNTR FOR NEXT MINUTE COUNT 

INCREMENT ONE»S SECOND DIGIT 

SEE IF 10 SECONDS HAVE PASSED 

NO I 

RESET ONE'S SECOND DIGIT TO ZERO 



^ 



INC 
CB 
JGT 
MOVB 



R6 

@R8LB, @R6LB 

SCRN 

R8,@R6LB 



INCREMENT TEN»S DIGIT 

SEE IF 60 SECONDS HAVE PASSED 

NOl 

RESET TEN'S SECOND DIGIT 



INC 
CB 
JGT 
MOVB 



R5 

R9,@R5LB 
SCRN 
R8,§R5LB 



INCREMENT ONE'S MINUTE DIGIT 

SEE IF 10 MINUTES HAVE PASSED 

NOl 

RESET ONE'S MINUTE DIGIT TO ZERO 



A 

CB 
JGT 
MOVB 



R10,R5 

@R8LB,R5 

SCRN 

R8,R5 



INCREMENT TEN'S MINUTES DIGIT 

SEE IF 60 MINUTES HAVE PASSED 

NOl 

RESET TEN'S MINUTE DIGIT 



A R10,R4 

CB @R7LB,@R3LB 

JGT CLKl 

CB @R9LB,R4 

JGT CLKl 

MOVB R9,R4 



INCREMENT ONE'S HOUR DIGIT 

TEN'S HOUR DIGIT A OR 1? 

YESl 

IS THE ONE'S HOUR DIGIT PAST 3? 

NOl 

SET ONE'S HOUR DIGIT BEFORE ENTERING CLKl 



"^ 



CB 

JGT 

MOVB 

INC 

CB 

JHE 

MOVB 

LI 

LI 

LI 

BLWP 

LWPI 

RT 



R9,R4 

SCRN 

R8,R4 

R3 
eR7LB,@R3LB 

SCRN 

R8,eR3LB 

R0,22 

R1,WSR+6 

R2,9 

eVMBW 
GPLWS 



HAS 12 HOURS PASSED YET? 

NOl 

CLEAR ONE'S HOUR DIGIT 

INCREMENT TEN'S HOUR DIGIT 

HAVE 24 HOURS PASSED? 

NOl 

CLEAR TEN'S HOUR DIGIT 

LOAD SCREEN LOCATION FOR CLOCK 

LOAD DATA LOCATION TO MOVE 

LOAD NUMBER OF BYTES TO MOVE 

MOVE THE CLOCK TO THE SCREEN 

RELOAD GPL WORKSPACE 

RETURN TO INTERRUPT ROUTINE 



»________ 



« SETCLOCK ROUTINE 



SETCLK 



LWPI 

LI 

LI 

MOV 

CLR 

LI 



WSR 

R12,>0006 

RO , TIMER 

RO , §COUNTR 

RO 

R1,1 



LOAD OUR WORKSPACE REGISTERS 

MAKE SURE R12 HAS A 6 IN THE MSB FOR THE STRREF ROUTINE 

LOAD RO WITH 60 

RELOAD OUR MINUTE TIMER 

WE WON'T BE LOADING AN ARRAY SO CLEAR RO 

ONLY ONE PARAMETER BEING PASSED TO US THROUGH CALL LINK 



^ 



1^ 




r 



LI 


R2,R12LB 


BLWP 


§STRREF 


MOVE 


R13,eR3LB 


MOVB 


§R13LB,Rn 


MOV 


R1ii,R5 


MOVB 


R15,@R6LB 


MOVB 


@R15LB,R7 


AB 


R11,@R3LB 


AB 


R11,R^ 


A 


R11,R5 


AB 


R11,@R6LB 


AB 


Rn,R7 


MOVB 


RO,§STATUS 


LWPI 


GPLWS 


B 


©NEXT 


END 





WHERE TO PUT THE TIME STRING 

GET THE TIME STRING 

MOVE THE TEN'S HOUR DIGIT INTO PLACE 

MOVE THE ONE'S HOUR DIGIT INTO PLACE 

MOVE THE ONE'S AND TEN'S MINUTE DIGITS INTO PLACE 

MOVE THE TEN'S SECOND DIGIT INTO PLACE 

MOVE THE ONE'S SECOND DIGIT INTO PLACE 

ADD THE BASIC SCREEN OFFSET TO OUR TIME 



CLEAR THE STATUS BYTE 

LOAD THE GPL WORKSPACE REGISTERS 

RETURN TO THE GPL INTERPRETER (i.e. 



BASIC IN OUR CASE) 



Here is the CALL LOAD Version of the CLOCK and SETCLK Assembly routines. 



r^ 



10 CALL CLEAR :: CALL INIT 

20 CALL LOAD(l6368,83,69,84, 
67,76.75,37,152) 

30 CALL L0AD(16376,67,76,79, 
67,75,32,37,24) 

no CALL L0AD(819'*,37,226,63, 
2it0) 

50 CALL LOADC9M60, 0,60, 0,0,0 
,0,0,0, 128, 144, 144, 154, U4,1 
44, 154, 144, 144, 146, 144, 150, 1 
54,148) 

60 CALL L0AD(9482, 1 ,0,96,96, 

0,6,205,75,205,96,33,131,37, 
30,200,32,37,22,131, 196,2,22 
4) 



70 CALL LOAD(9504,36,246,6,3 
2,36,244,22,45,2,0,0,60,200, 
0,36,244, 161 ,202, 145,201 ,21 , 
38) 

80 CALL LOAD(9526,209,200,5, 
134,152,32,37,7,37,3,21 ,32,2 

16,8,37,3,5,133,152,9,37,1) 

90 CALL L0AD(9548, 21 ,26,216, 
8,37,1.161,74,145,96,37,7,21 

,20,209,72.161,10,152,32,37, 
5) 

100 CALL L0AD(9570,36,253,21 
,4,145,32,37,9,21 ,1 ,209,9,14 
5,9,21 ,8.209,8,5,131,152,32) 



110 CALL LOAD(9592,37,5,36,2 
53,20,2,216,8,36.25 3,2,0,0,2 

2,2,1,36,252,2,2,0,9) 

120 CALL L0AD(9614,4,32,32,3 

6,2,224.131,224,4,91,2,224,3 
6,246,2,12,0,6,2,0,0,60) 

130 CALL LOAD(9636, 200, 0,36, 

244,4,192,2,1,0,1,2,2,37,15, 
4,32,32.20,216,13,36,253) 

140 CALL L0AD(9658,209,32,37 
,17,193,78,216.15,37,3,209,2 
24.37.21 .184,11 ,36,253,177,1 
1,161.75) 

150 CALL LOAD(9680,184,11 .37 
.3,177,203,216,0,131 ,124,2,2 

24.131 .224.4.96,0,112,88,79) 
160 CALL LINKCCLOCK") 

170 DISPLAY AT( 12, 1 ) :"TIME?_ 
" :: ACCEPT ATC12,6)SIZ 



E(-6)BEEP VALIDATECDIGIT) :TI 
ME$ :: CALL LINKC "SETCLK" , TI 
ME*) 



180 CALL CLEAR :: CALL LOAD( 

-31952,255,231,255,231)1 

This is like . 'NEW' 



^ 



RS232 CARD - DSR M910RY MAP 



^ 



RS232 DSR HEADER 

Note: This header MUST be at >4000 for a valid DSR 

Header Validation byte and Version Number 

Number of Application Programs - not used in DSRs 

Power Up Header Address 

Application Program Header - only used in cart GROM/ROM 

DSR Header Address 

Subprogram Header Address - none here 

Interrupt Link Header Address 

Not Used - Reserved 



>4000 
>il002 

>noo4 

>4006 
>4008 
>400A 
>400C 
>400E 



>4010 
>4012 



>4016 
>4018 
>401A 
>401B 

>4020 
>4022 
>4024 
>4025 

>402C 
>402E 

>4030 
>4031 

>4038 
>403A 
>403C 
>403D 

>4040 
>4042 
>4044 
>4045 

>404A 
>404C 
>404E 
>404F 

>4054 
>4056 
>4058 

>4059 

>4060 
>4062 
>4064 
>4065 



>AA01 

>0000 
>4010 

>0000 

>4016 

>0000 

>406C 

>0000 



I 
t 



POWER DP HEADER 

>0000 Link to next Power Up Header 
>40F4 Entry Point for this Power Up 
>0000 Not Used 



no more 
Routine 



DSR HEADBR(s) 

>4020 Link to next DSR Header 

>416E Entry Point for this DSR Routine 

>05 Length of DSR Routine Name 
>5253323332 HS232 DSR Link Name 

>402C Link to next DSR Header 

>416E Entry Point for this DSR Routine 

>07 Length of DSR Routine Name 
>52533233322F31 RS232/1 DSR Link Name 

>4038 Link to next DSR Header 

>4174 Entry Point for this DSR Routine 

>07 Length of DSR Routine Name 
>52533233322F32 RS232/2 DSR Link Name 

>4040 Link to next DSR Header 

>415E Entry Point for this DSR Routine 

>03 Length of DSR Routine Name 
>50494F PIO DSR Link Name 

>404A Link to next DSR Header 

>415E Entry Point for this DSR Routine 

>05 Length of DSR Routine Name 
>50494F2F31 PIO/1 DSR Link Name 

>4054 Link to next DSR Header 

>4164 Entry Point for this DSR Routine 

>05 Length of DSR Routine Name 
>50494F2F32 PIO/2 DSR Link Name (for second RS232 Card) 



>4060 Link to next DSR Header 

>4180 Entry Point for this DSR Routine 

>07 Length of DSR Routine Name 
>52533233322F33 RS232/3 DSR Link Name 



(for second RS232 Card) 



>0000 Link to next DSR Header - no more 
>417A Entry Point for this DSR Routine 

>07 Length of DSR Routine Name 
>52533233322F34 HS232/4 DSR Link Name (for second RS232 Card) 



I 

I 
I 

I 

+ 



^ 



W 



IS' 



RS232 CARD - DSR MEMORY HAP Continued 



>i*06C 
>406E 
>4070 

>4072 
>4074 

>4076 
>407A 

>407E 
>4082 

>^086 

>408A 

>408E 

>4092 

>no96 

>409A 



>409C 
>409E 
>40A0 
>40A2 
>40A4 

>40A6 
>40A8 
>40AA 
>40AC 
>40AE 
>40B0 
>40B2 
>40B4 

>40B6 

>40C4 



>40D2 



>40F4 



>401E 



>415E 
>4164 
|>416E 
|>4174 
|>417A 
i>4l80 
+ 



INTERRUPT HEADER 

>0000 Link to next Interrupt Header 
>40D2 Entry Point for Interrupt Link 
>0000 Not Used - Reserved 

>0800 Data for Eight & Zero 
>0303 Data for Three 
OPTIONS TABLE 



no more 
Routine 



>4543 
>4352 
>4C46 
>4E55 
>4441 
>4241 
>5041 

>5457 
>4348 

>0000 



EC 
CR 
LF 

NU 
DA 
BA 
PA 
TW 
CH 



>4512 
>4518 
>451E 
>4524 
>4570 
>4536 
>4540 
>4596 
>452A 



End of Options 



Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Table 



Point 
Point 
Point 
Point 
Point 
Point 
Point 
Point 
Point 



for 
for 
for 
for 
for 
for 
for 
for 
for 



EC. 
CR. 
LF. 
NU. 
DA. 
BA. 
PA. 
TW. 
CH. 



CLOCK VALDE POINTER TABLE 

>0028 Value at >0OOC in Console ROM for 2.5 MHz Clock 

Address of Values for 2.5 MHz Baud Rates 
Value at >000C in Console ROM for 3.0 MHz Clock 
Address of Values for 3.0 MHz Baud Rates 
End of Table 



>40B6 
>0030 
>40C4 



>0000 

BAUD RATE TABLE 

>006E 110 Baud 

300 Baud 
600 Baud 



>012C 
>0258 
>04BO 
>0960 
>12C0 
>2580 
>0000 



1200 Baud 
2400 Baud 
4800 Baud 
9600 Baud 



End of Table 
2.5 MHz CLOCK VALUES 
>8563 >8482 >8209 
3.0 MHz CLOCK VALUES 

>85AA >849C 



>015B >8082 >8041 >002B 



>8271 >01A1 >809C >804E >8027 



INTERRUPT ROUTINE ENTRY POINT 

This is the start of the Interrupt driven Circular Input Buffer 
Routine. This routine allows RS232, RS232/1 & RS232/2 inputs on 
interrupts and places the data in a predetermined VDP Buffer. 

PONER UP ROUTINE 

This is executed when the computer first powers up. This 
routine initializes the 9901 (PIG) and 9902s CRS232/1 & /2). 

This is the balance of the Interrupt handling routine. 

PIG & PIG/1 Entry Point 

PIO/2 Entry Point (for second RS232 Card) 

RS232 & RS232/1 Entry Point 

RS232/2 Entry Point 

RS232/4 Entry Point (for second 

RS232/3 Entry Point (for second 



RS232 Card) 
RS232 Card) 



•^ 



r 



+ 



RS232 CARD - DSR MEMORY MAP Continued 



>ni8E 

>4190 



>4202 
>420U 
>4206 
>4208 
>420A 
>M20C 
>420E 



>4210 
>n236 
>42FA 
>4338 
>43D2 
>444A 
>4450 
>4464 

>4490 



>4512 
>4518 
>451E 
>4524 
>452A 
>4536 
>4540 
>4570 
>4596 



>45A0 



>463A 
>466A 
>4686 

>46EE 
>4700 
>4740 
>474A 
>4754 
>4798 
>47E4 
>4808 
>4822 



i 
>5000 I 



ALL RS232a JUMP TO HERE 

ALL PIOs JUMP TO HERE 

and then they jump to one of the 

table depending on the operation 



routines in 
requested 



the following 



OPCODE 

>4210 
>4464 
>4236 
>42FA 

>4450 
>4338 
>43D2 



VECTOR TABLE 



Entry 
Entry 
Entry 
Entry 
Entry 
Entry 
Entry 



Point 
Point 
Point 
Point 
Point 
Point 
Point 



for OPEN 

for CLOSE 

for READ 

for WRITE 

for RESTORE/REWIND 

for LOAD 

for SAVE 



Illegal Opcode 



OPEN Routine 
READ Routine 
VRITE Routine 
LOAD Routine 
SAVE Routine 
Error Handling 
Illegal Opcode 
CLOSE Routine 



(OPEN yM:"RS232".BA=xxxx etc.) 

(INPUT #1: A$) 

(PRINT #1: A$) 

(OLD RS232) 

(SAVE RS232) 

Routines 

Handler 

(CLOSE #1) 



Routine to parse for the OPTIONS (BA, CR LF etc.) 



RODTIKES TO SET OP THE OPTIONS 

ECHO - EC Option Routine 

CARRIAGE RETURN - CR Option Routine 
LINE FEED - LF Option routine 
NULL - NU Option Routine 
CHECK PARITY - CH Option Routine 
BAUD RATE - BA Option Routine 
PARITY - PA Option Routine 
DATA BITS - DA Option Routine 
TWO STOP BITS - TW Option Routine 



(.EC) 

C.CR) 

(.LF) 

(.NU) 

(.CH) 

(.BA=1200) 

(.PA=E) 

(.DA=8) 

(.TW) 



HISC SUBROUTINES AND ROUTINES 

The routines in this area are used by the above routines 
to set up registers and for parsing inputted values for 

Baud Rate etc. 

This routine reads a single character in from an RS232 port. 

This routine reads a single character in from the PIO port. 

This routine places the block counter values on the screen 

during a LOAD or SAVE .... Opcode 

This routine sends the Carriage Return character when needed. 

sends the NULL characters when needed. 

checks for an INTERNAL Data type. 

checks for a FIXED Record Length. 

converts ASCII Values into Binary, 
is the Scan routine. It finds non-space characters. 
routine Transmits a character to an RS232 port, 
routine Transmits a character to the PIO port. 
These routines set up the RS232 ports and PIO port, clear the 
VDP Screen area for the SAVE and LOAD value, check Ready to Read 
cheek Status and cause a time delay between PIO characters. 
The 1 Byte buffer used by the RS232 Card (not fully decoded) 



This 
This 
This 
This 
This 
This 
This 



routine 
routine 
routine 
routine 



9^ 



P 




^ 



8 



J 



ASSEMBLY LANGUAGE PRINT ROUTINES 

by Edgar Dohmann — JSC User's Group (JUG) 

Here are some general print routines 
which I have developed for use in assembly 
language programs. These routines are set 
up as BLWP subroutines to isolate their 
register usage from your main assembly 
language program which calls them. 
Included in the listings is a PAB 
definition for my printer ("RS232.BA=600") . 
Substitute your printer's description in 
PNAME and be sure to change the value of 
PNAML to reflect the length in bytes of 
your printer's description. 

The PAB locations used here are >1F00 
for the PAB description and >lFi|0 for the 
line buffer to be printed. You may use 
other areas of VDP for your PAB and buffer 
if you like, but make sure they are not 
being used by the computer for something 
else. 

REF VSBW,VMBW,DSRLNK 

PABLOC EQU >1F00 VDP LOCATION OF PAB 
DATLOC EQU >1Fi»0 VDP LOCATION OF LINEP 
PABPNT EQU >8356 POINTER TO PAB 



LI RO , PABLOC 


GET VDP ADDRESS 


MOVB §PWRT,R1 


SET FOR WRITE 


BLWP evsBw 


IN PAB 


RTWP 




PCLO LI RO , PABLOC 


GET VDP ADDRESS 


MOV §PCLS,R1 


SET FOR CLOSE 


BLWP evsBw 


IN PAB 


LI R6,PABLOC+9 


ADDRESS TO SAVE 


MOV R6,ePABPNT 


IN PAB POINTER 


BLWP @DSRLNK 


CLOSE PRINTER 


DATA 8 




RTWP 




POUT LI RO, DATLOC 


VDP ADDR OF BUFFER 


LI R1,DATBUF 


POINT TO BUFFER 


LI R2,80 


80-BYTE LINE BUFFER 


BLWP eVMBW 


MOVE LINE TO VDP 


LI R6,PABLOC+9 


ADDRESS TO SAVE 


MOV R6 , ePABPNT 


IN PAB POINTER 


BLWP @DSRLNK 


WRITE A LINE 


DATA 8 




RTWP 





DATBUF BSS 80 
PRTWSP BSS 32 

« »«PAB DEFINITION** 



80-BYTE LINE BUFFER 
WORKSPACE FOR ROUTINES 



PPAB 



PNAML 
PNAME 
PPABE 

PCLS 
PWRT 

POPEN 

PC LOS 

POUTP 



DATA 
DATA 
DATA 
DATA 
DATA 
TEXT 
EQU 



>0012 

DATLOC 

>5050 



12 

'RS232 



$ 



BYTE 1 
BYTE 3 



POPN 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

LI 

LI 

LI 

BLWP 

LI 

MOV 

BLWP 

DATA 



PRTWSP 

POPN 

PRTWSP 

PCLO 

PRTWSP 

POUT 



OPEN CODE 4 FLAGS 
LOCATION OF BUFFER 
RECORD LENGTH 

LENGTH OF PRINTER NAME 
BA=600' PRINTER NAME 
END OF PAB DEFINITION 

CLOSE CODE 
WRITE CODE 

BLWP VECTOR FOR OPEN 

BLWP VECTOR FOR CLOSE 

BLWP VECTOR FOR OUTPUT 



RO, PABLOC GET VDP ADDRESS 
RI.PPAB POINT TO PAB DEF 
R2 , PPABE-PPAB LENGTH OF PAB 



@VMBW 



MOVE PAB TO VDP 



R6,PABLOC+9 ADDRESS TO SAVE 



R6 , §PABPNT 

@DSRLNK 

8 



IN PAB POINTER 
OPEN PRINTER 



is 
be 
of 



Here is a program that can be used to 
test the print routines given above. The 
DEF statement will cause the program to be 
included in the REF/DEF table when it 
loaded. The assembled object code can 
loaded by either the LOAD AND RUN option 
the Editor/Assembler or by a CALL LOAD from 
Basic and Extended Basic. If either Basic 
is used, a CALL LINK will have to follow 
the load to execute the program. 

The test program given here will print 
two lines over and over until you reset the 
computer. For convenience, two additional 
routines are included with the program: 
PCLEAR will clear the line buffer in RAM 
and MOVMSG will copy a message into the 
line buffer to prepare it for printing. 



••ROUTINE FOR TESTING** 



TSTWSP BSS 
TEST 

BL 
LI 
LI 
BL 



DEF TEST 

32 
LWPI TSTWSP 
BLWP gPOPEN 
©PCLEAR 
R0,MESG1 
R1,MESG1E- 
eMOVMSG 



BLWP @POUTP 
BL ePCLEAR 
LI R0,MESG2 
LI R1,MESG2E. 
BL SMOVMSG 
BLWP @POUTP 
BLWP ePCLOS 
JMP TEST 



MY WORKSPACE 

OPEN PRINTER 

CLEAR BUFFER 

MESSAGE TO PRINT 
•MESG1 LENGTH OF MESSG 

MOVE TO LINE BUFF 

PRINT MESSAGE 

CLEAR BUFFER 

NEXT MESSAGE 
■MESG2 LENGTH 

MOVE IT 
PRINT IT 

CLOSE PRINTER 

»*LOOP BACK** 




MESG1 TEXT 'TEST MESSAGE* 
MESGIE EQU $ 

MESG2 TEXT » ANOTHER MESSAGE' 
MESG2E EQU $ 



PC LEAR 


LI 


R0,>2020 




LI 


R1,40 




LI 


R2,DATBUF 


PCLR1 


MOV 


R0,*R2+ 




DEC 


R1 




JNE 


PCLR1 




RT 




MOVMSG 


LI 


R2,DATBUF 


M0VM1 


MOVE 


*R0+,»R2+ 




DEC 


R1 




JNE 


M0VM1 




RT 





LOAD 2 BLANKS 

80 BYTES = 40 WORDS 

LOCATION OF BUFFER 

BLANK 2 BYTES 
DONE 40 WORDS YET? 
LOOP TIL DONE 

LOCATION OF BUFFER 
MOVE A BYTE 
MESSAGE MOVED? 
LOOP TIL DONE 



As I mentioned -above, you can load the 
program with either Basic or Extended 
Basic. However, as you may know, Extended 
Basic does not include a DSRLNK to allow 
programs like this to access peripheral 
devices. Fortunately there are several 
versions of DSRLNK floating around which 
you can include in your program if you have 
access to them. John Phillips, John 
Clulow, and I have each provided versions 
of DSRLNK to User's Groups through the 
99'er3 Users Group Association. 

Another alternative is to use a 
pseudo-DSRLNK routine like the one below. 
This is a "stripped down" version of DSRLNK 
which is only good for one peripheral. The 
standard DSRLNK searches through all DSR 
ROMs until it finds a device name which 
matches the one specified in your PAB. 
This version only searches one ROM and is 
set up here to check the 1st RS232 card 

(CRU address of >1300), 

This routine is intended for calling 
with a BL so the BLWP §DSRLNK calls in the 
printer routines above should be replaced 
with BL gDSRLK calls. Also the DATA 8 
instructions following the BLWP calls must 
be deleted. The advantage of this 
shortened version is that it is less than 
half the size of the standard DSRLNK so it 
is easier to type, takes up less memory, 
loads faster, and executes faster. One 
other change that must be made is to delete 
the REF statement for VSBW, VMBW, and 
DSRLNK. The Extended Basic loader does not 
resolve REFerences and the routines VSBW 
and VMBW must be explicitly EQUated to 
their X-Basic values as follows: 

VSBW EQU >2020 
VMBW EQU >2024 



The value of PNAMP must be matched to 
the name length of your printer but must 
only reflect the characters up to the first 
period of the name. For a printer 

description of PIO.LF set PNAMP to 3- 
• <« PSEUDO DSRLNK »> 

PNAMP EQU 5 LENGTH OF 'RS232' 



DSRLK 


LWPI 


>83E0 


GPL WORKSPACE 




LI 


RO , PNAMP 


GET NAME LENGTH 




MOV 


R0,e>8354 


SAVE FOR DSR USE 




INC 


RO 


ADJUST FOR . 




A 


R0,@>8356 


ADJUST PAB POINTER 




LI 


R12,>1300 


CRU FOR 1ST RS232 




LI 


R1,1 


DSR VERSION # 




SBO 





TURN ON DSR 




LI 


R2,>4008 


STD ADDR FOR DSR LINK 




JMP 


SG02 




SCO 


MOV 


R3,R2 


TRY NEXT DEVICE 


SG02 


MOV 


«R2,R2 


GET NEXT LINK ADDR 




JEQ 


NOROM 


EXIT IF NO MORE 




MOV 


R2,R3 


SAVE LINKAGE 




INCT 


R2 


POINT DSR FOR DEVICE 




MOV 


«R2+,R9 


SAVE IT MIGHT NEED IT 




LI 


R5, PNAMP* 


>100 NAME LEN IN MSB 




CB 


R5,*R2+ 


SEE IF LENGTH MATCHES 




JNE 


SCO 


NO 




SRL 


R5,8 


YES 




LI 


R6 , PNAME 


GET ADDRESS OF NAME 


NAME1 


CB 


»R6+,»R2+ 


SEE IF NAMES MATCH 




JNE 


SCO 


NO 




DEC 


R5 


YES 




JNE 


NAME1 






BL 


•R9 


NAME MATCHES 




NOP 




NEED ERROR RTN SPOT 




SBZ 





TURN OFF DSR 


NO ROM 


LWPI 

RT 


PRTWSP 


PREPARE TO RETURN 



One last point to mention is the fact 
that the CLOSE operation is not required 
for the RS232 peripheral. The POLOS 
subroutine is included here mainly for 
completeness. Basic programs require the 
CLOSE operation to reclaim the VDP buffer 
space that was allocated when the "file" 
for the RS232 card was opened. However 
this is not necessary in assembly language 
and the DSR itself takes no action in 
response to a CLOSE command. CLOSE 
commands are required for real file 
oriented devices like disks because this 
causes the sector buffer in memory to be 
written to the disk (on write operations) 
and also causes the file directory (which, 
is kept in memory while the file is open) 
to be written to the disk. Such activities 
are not necessary for devices like the 
RS232 card. 
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NES. . . DOCUMENTATION 

you to use sound statements similar 
orth. An example which you may find 



9/4A 

rds 

for 

SOU 
or 3 
mber 
n 
ce) 
D. T 
led, 
for 



» you 
SOUND 
SOUND 
NDBUI 

for 

betw 
and 3 

The 
he no 

the 
sound 



must first build a 
BUILD and NOISEBUILD will 
BUILD is: 

LD. Note that you must 
SOUNDBUILD. The frequency 
een 110 and 32767. 
0, being the loudest, an 
format for NOISEBUILD is: 
ise type is a number from 
noise shift rate depends 

generator #3. 



cont . 
SOUNDBUILDs and/or 
The format for DURA 
DURATION. 



#101 

;S CHIP'S SOUND ROUTINES 

After executing a series of 
you execute the word DURATION. 

durationCin milliseconds) 
The duration can be from to 4095 milliseconds. 
( Actually, the specification isn't exact--if you 
milliseconds, the sound will play for 4.25 seconds 

When you've finished creating a sound list with 
SOUNDBUILDs, NOISEBUILDs, and DURATIONS, you can h 
you've built by executing the word PLAY. If you wa 
your sound list again, use the word REPLAY. Here i 
After loading the screens which contain the sound 
in the following: 

1 330 SOUNDBUILD 2 440 5 SOUNDBUILD <cr> 

3000 DURATION <cr> PLAY <cr> 

and then. , .REPLAY <cr> if you wish to hear the 

#102 

;S CHIP'S SOUND ROUTINES last docs. 

The third screen of the sound routines shows a 
of the use of SOUNDBUILD and DURATION. 

Words which define musical notes start on the 
The format is : generator* octave* NOTENAME 
where NOTENAME Is one of the notes which is define 
fourth screen. For example 1 2 ^A 1000 DURATION PL 
generator #1 play the note A natural for 1 second. 
A sharp and $A refers to A flat. See the screens f 
fourth one for an example of how to use the words 
screen. (These screens contain a TI99/4A rendition 
to the TV series Star Trek.) 

I hope you enjoy using these 
questions, I'd be glad to answer 

74206, 3252 and my name is Chip Jar vis. l" can also 
San Diego TI-SIG. 4013 HONEYCUTT ST. SAN DIEGO, C 
#103 __ ! 

( TESTED SOUND ROUTINES 2/14/85 CHIP JARVIS) BASE 



a NOISEBUILD, 
TION is : 



specify 4095 

) 

a series of 
ear the list 
nt to hear 
s an example: 
routines, type 



sounds again 



screens. If you h 
them. My CompuSer 



nother example 

fourth screen. 

d in the 

AY would make 

#A refers to 
ollowing the 
on the fourth 

of the theme 



ave any 

ve user ID# is 
be reached c/o 
A 92109 



HEX 1400 VARIABLE S-START 
1401 VARIABLE S-END 



->R 



1400 VARIABLE L-DUR 



SOUNDS 



# of bytes) 
LOOP : 



VDP-WRITE ( ...bytes to write, 

DO S-END @ VSBW 1 S-END +1 
VOICE 1- 20 » 80 OR ; DECIMAL 
FREQ-CODE ( gen freq -- ) 

111861. ROT M/ SWAP DROP DUP 4 SRA ROT VOICE ROT 15 AND OR 
2 VDP-WRITE ; 
VOL-CODE ( gen vol -- ) 

1 SRA SWAP VOICE 1 6 + OR 1 VDP-WRITE : 
NOISE-CODE ( noisetype — ) 

7 AND 224 OR 1 VDP-WRITE ; 

DUR-CODE ( millisec — 60ths) 4 SRA 1 VDP-WRITE : 




--> 



11 



SCB 


#104 









( SOUND ROUTINES CONT. ) 






1 


: UPDATE-POINTERS ( -- ) 






2 

3 
4 


S-END § L-DUR § - DUP 1- L-DUR § VSBW 1+ L-DUR 


+ 1 ; 


: SOUNDBUILD ( gen freq vol — ) 






5 


ROT DUP ROT VOL-CODE SWAP FREQ-CODE ; 






6 


: NOISEBUILD ( type vol — ) 






7 


4 DUP ROT VOL-CODE SWAP NOISE-CODE ; 






8 


: DURATION ( millisec — ) 






9 


UPDATE-POINTERS DUR-CODE S-END 1 +! ; 






10 


HEX 






11 


: REPLAY ( replay sound list in vdp ram) 






12 


S-START e 83CC I 83FD C^ 1 OR 83FD CI 




1 83CE CI ; 


13 


: PLAY 00 FF DF BF 9F 04 6 VDP-WRITE 






14 


1401 S-END I 1400 L-DUR I REPLAY ; 






15 


R->BASE 


— 


-> 


SCR 


#105 









C CHARGE! 2/14/85 T, CHIP JARVIS) 






1 


1 1047 SOUNDBUILD 125 DURATION 






2 


1 1175 SOUNDBUILD 125 DURATION 






3 


1 1319 SOUNDBUILD 125 DURATION 






4 


1 1568 SOUNDBUILD 125 DURATION 






5 


1 30000 SOUNDBUILD 125 DURATION 






6 


1 1319 SOUNDBUILD 175 DURATION 






7 


1 1568 SOUNDBUILD 600 DURATION 






8 

9 
10 
11 


PLAY ;S 












12 








13 








14 








15 

^h ^B ^^ 








SCB 


#106 









( NOTE DEFINITIONS 2/16/85 C. JARVIS) 1000 VARIABLE FULLCOUNT 


1 


: NOTE <BUILDS , DOES> § 2 / SWAP DO 2 • LOOP 





SOUNDBUILD ; 


2 


: NOTELEN <BUILDS , DOES> e FULLCOUNT @ SWAP / 


DURATION ; 


3 


: NOTELEN. <BUILDS , DOES> § FULLCOUNT § 






4 


DUP 2 / + SWAP / DURATION 


* 

1 




5 


110 NOTE eA 






6 


116 NOTE #A : $B #A ; 16 NOTELEN. SIXT. 






7 


123 NOTE §B 16 NOTELEN SIX 






8 


131 NOTE §C : $C eB ; 8 NOTELEN. EIGT. 






9 


139 NOTE #C 8 NOTELEN EIGT 






10 


147 NOTE §D : $D #C ; 4 NOTELEN. QUAR . 






11 


156 NOTE #D : $E #D ; 4 NOTELEN QUAR 






12 


165 NOTE §E : $F #E ; 2 NOTELEN. HALF, 






13 


175 NOTE gF 2 NOTELEN HALF 






14 


185 NOTE #F : $G #F ; 1 NOTELEN. WHOL . 






15 


196 NOTE §G 208 NOTE #G : $A 1 - #G ; 


1 


NOTELEN WHOL 


SCR 
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( STAR TREK MUSIC 2/16/85 CHIP JARVIS) 






1 


: »B SB ; : SB #A ; ( B's fiat) : CE 1 2 ec 2 


! 2 


'. eE ; 


2 


1 2 ec QUAR 1 2 ec 2 1 ec 




QUAR 


3 


1 2 ec 2 3 SB 3 1 eF QUAR 1 2 eC 2 3 ©B 3 




ec QUAR 


4 


1 2 ec 2 3 §B QUAR 1 3 eA 2 1 ec 




QUAR 


5 


1 2 eo 2 2 eA 3 1 ep eigt. i 2 ep 2 2 eA 3 




ep EIGT. 


6 


1 2 eE 2 2 eA 3 1 ep eigt. 1 2 »b 2 2 #d 




HALF 


7 
8 

9 


CE 3 1 ep QUAR CE 3 




eA QUAR 


CE QUAR CE 3 




eE QUAR 


10 


CE 3 1 #D QUAR CE 3 




#C QUAR 


11 


1 2 ec QUAR 1 2 ec 2 1 ec 




QUAR 


12 


1 3 ec 2 3 eA 3 2 eA QUAR 1 3 ec 2 3 eA 3 




eA QUAR 


13 


1 3 ec 2 3 eA QUAR 1 3 eB 2 1 ec 




QUAR 


14 


1 3 eA 2 2 eA 3 1 ep eigt. 1 2 ec 2 2 eA 3 




ep EIGT. 


15 

KA 


1 2 ep 2 2 eA 3 1 ep eigt. 




— > 


'Vtr- 
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#108 

C STAR TREK cont. 
CE 

3 1 #G 



CE 
CE 
CE 

1 2 

1 2 



3 1 #G 
»B 2 2 
•B 2 2 



1 
1 
1 
1 



2 

3 
2 

2 



#F 
@A 
@E 

eF 



#109 — 

C STAR 

1 2 ec 

1 2 @C 
1 2 @C 
1 3 @B 

1 3 
2 @E 



1 

1 
1 
1 
1 
1 



2 
2 
2 
2 
2 



1 



@C 
@C 
§C 
@G 
2 



#110 



C STAR 
1 2 »B 



1 
1 
1 
1 
1 

1 
1 

1 
1 
1 
1 



2 
2 
2 
2 

3 

3 
3 

2 
2 
2 
2 



@C 
@C 

ec 

@C 
§A 

@A 
§A 
1 
@E 
@E 
@E 
#D 



#111 



c 

1 
1 
1 
1 

1 
1 

1 
1 
1 
1 
1 
1 
1 



STAR 
2 
2 
2 

3 



§D 



2/16/85 TCJ) 

QUAR CE 3 1 

QUAR CE 3 1 

QOAR CE 3 1 

QUAR 1 2 #D 2 

QUAR 1 2 •B 2 

3 1 @G QUAR 1 2 eE 2 



1 §D 

2 eo 
2 eo 



3 1 eo 



2 1 
2 2 

2 3 



#G 3 3 @D 
eA 3 3 #D 



QUAR 
QUAR 
HALF 
WHOL 



1 2 ec 2 1 

1 3 *B EIGT 



ec 

1 3 §C EIGT 



QUAR 
QOAR 
QUAR 
QUAR 
QUAR 
QUAR 

QUAR 



_-> 



TREK cont. 2/16/85 TCJ) 



2 2 #D 
2 2 #D 

2 2 ec 
2 2 ec 

#C 2 2 
2 2 #G 



3 1 #G 

3 1 #G 

§C 3 1 
3 3 #D 



2 3 #A 3 1 eE 



2 3 eB 
2 3 eB 

2 2 @A 
@E 2 2 



3 1 eF 

3 1 eF 
eA 3 1 



QUAR 
QUAR 
QUAR 
EIGT. 
#G EIGT 
HALF 

WHOL 
QUAR 
QUAR 
QUAR 
EIGT. 
eF EIGT 



1 2 ec 2 2 

1 2 @F 2 1 

1 2 #G 2 1 

1 3 ec 2 2 



#D 

eE 

#D 

ec 3 



3 1 #D 



1 #G 



QUAR 
QUAR 
QUAR 
EIGT 



1 2 ec 2 3 #A 3 1 eE HALF 



1 2 ec 2 1 

1 2 ec 2 3 

1 3 eA 2 1 

1 2 ep 2 2 



ec 

eB 3 1 ec 
ec 

eA 3 1 ep 



QUAR 
QUAR 

QUAR 
EIGT 



— > 



TREK cont. 
2 2 #D 

2 2 eE 3 1 
2 2 eE 

2 2 eE 3 1 



2 3 ec 3 2 eA 



2/16/85 TCJ) 

HALF 
ep QUAR 

QUAR 
#D QUAR 

QUAR 

QUAR 



2 3 ec 

2 2 eA 

2 ep 2 

2 2 eD 

2 2 #C 



3 1 ep 

2 eA 3 

3 1 #G 
3 1 #G 

3 1 ec 
3 1 ec 



QUAR 
EIGT. 
1 ep EIGT 
HALF 
HALF 
HALF. 
QUAR 



1 
1 
1 
1 
1 

1 

1 



2 
2 
2 

2 
3 

3 

2 



ec 
ec 
#c 
ec 
eA 



2 
2 
2 
2 
2 



2 
2 

1 
1 
3 



eE 
eE 

#c 
ec 
ec 



3 
3 



1 
1 



eA 
ep 



3 1 ec 



QUAR 

QUAR 
QUAR 
QUAR 
QUAR 



eB 2 1 ec 
ec 2 2 eA 3 



1 



QUAR 
ep EIGT 



--> 



TREK cont 



3 
3 

2 
2 
2 
2 
2 
2 
2 



eB 2 2 

eB 2 2 

#C 2 2 

eA 2 2 

1 3 eA 

eA 2 3 

eA 2 3 



eo 3 1 
eD 

ep 

#C 3 1 
2 2 #C 

ec 

ec 3 2 



2/16/85 

eB HALF 
QUAR 
QUAR 
EIGT. 

#D EIGT 
QUAR 
QOAR 



T. CHIP JARVIS) 



#D 
3 1 



eA 



1 2 eE 

1 2 #c 2 2 ec 3 1 

1 3 eB 2 2 #C 3 1 

1 3 eA 2 3 ec 3 1 

1 3 eA 2 3 ec 3 1 



QUAR 
eB QOAR 
#D EIGT 

ec QOAR 
ec QUAR 



#F 

ep 
eo 

eD 

eE 

eE 

eE 



2 
2 
2 
2 
2 
2 
2 



3 
3 

2 
2 
2 
2 
2 



#A 

ec 
ep 
ep 
ec 
ec 
ec 



3 3 #D 



3 
3 
3 
3 
3 



2 
1 
2 
2 

2 



eB 
ec 
eB 
eB 
eB 



HALF 
QUAR 
QUAR 
HALF 
EIGT 
EIGT 
EIGT 



1 2 #F 2 3 #A 3 3 eo QOAR 

1 2 ep 2 3 ec 3 1 eo quar 

1 2 en 2 2 ep 3 1 eo quar 

1 2 eE 2 9 eA 3 2 es SIX 

1 2 eE 2 9 eA 3 2 es six 

1 2 eE 2 9 eA 3 2 eB SIX 



— > 
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SCfi 


#112 







STAR 


1 




2 @A 


2 




2 @B 


3 




2 @C 


4 




2 @C 


5 






6 






7 






8 






9 






10 






11 






12 






13 






14 






15 







TREK last 2/16/85 T 
2 2 @D 3 2 §F WHOL 
2 2 #D 3 2 er WHOL 
2 3 §A WHOL 

2 3 §A WHOL 



CHIP JARVIS) 



^ 



Many thanks to Chip Jarvls. - We also received this method of 
generating sounds in TI Forth from Rex Nielsen - Thanks, 



SCR 


1 
2 

3 

4 

5 
6 

7 
8 

9 
10 

11 

12 

13 

14 

15 



#92 

( Sound 

BASE->R 
80 VA 

3001 VA 
VA 

049F VA 
OTEST 
+ SDTA 
+ OPER 
DUR 
T0NE1 



Routine - 3 

HEX 



Notes, 1 Noise Vol 1-16 by Rex Nielsen ) 



RIABLE 
RIABLE 
RIABLE 
RIABLE 



: T0NE2 



VARIABLE NOISY 2 
4 ALLOT BFDF SDOFF 
= UNTIL : 



ALLOT 

2+ I FFOO 



SDOFF 2+ 2+ I 



OPER 

SDTAB 

TIME 

SDOFF 
BEGIN 83CE @ 
B 1 SDTAB +1 ; 
10 OPER +1 ; 
ABS 4 SRL DUP 1 < IF DROP 1 ENDIF TIME I 

3000 VSBW 1B4F5. ROT U/ DUP F AND OPER 
SDTAB § VSBW +OPER +SDTAB 4 SRA 3F AND SDTAB § VSBW 
+SDTAB DROP OPER § + SDTAB @ VSBW +SDTAB +OPER ; 
TIME e SDTAB @ VSBW SDTAB e 3001 - 3000 VSBW +SDTAB 
SDOFF SDTAB @ 6 VMBW 3000 83CC I 83FD DUP @ 01 OR 
SWAP I 0100 83CE I : R->BASE — > 






It. 



SCR 



1 

2 

3 
4 

5 
6 

7 
8 

9 
10 
11 
12 

13 
14 

15 



#93 

C Sound Cont - Syntax = VN -N V3 F3 V2 F2 VI F1 DUR SOUND 

( freq's F1 F2 F3 are like BASIC'S 

( vol»s VN VI V2 V3 are from 1 through 16 

( dur is also like BASIC'S - positive or negative 

( you can use from 1 to 3 notes and/or 1 noise. 

( note: first item on the stack MUST be a 0, zero, or the 

C empty stack error message will come up. 

BASE->R HEX 

: NOISE ABS 1 - 7 AND EO + NOISY ! FO + NOISY 2 + ! ; 

: T3 NOISY @ > IF 3 DO NOISY I + § SDTAB § VSBW +SDTAB 

2 +LOOP ENDIF ; 
: -TEST DUP FFF7 U< IF T0NE1 ELSE NOISE ENDIF ; 
: SOUND DUP > IF OTEST ENDIF DUR BEGIN -TEST DUP = UNTIL 

DROP T0NE2 80 OPER I 3001 SDTAB ! NOISY I ; 
R->BASE 



T3 



Here are a few examples using the SOUND word on screens 92-93: 



FORTH 

1 110 100 SOUND <enter> 

2 220 3 330 4 440 100 SOUND 

14 -1 100 SOUND <enter> 

3-32 660 3 880 -200 SOUND 



<enter> 



<enter> 



CALL 
CALL 
CALL 
CALL 



BASIC 

SOUNDCIOO, 110,1) 

SOUND ( 100,440,4,330,3,220,2) 

S0UND( 100,-1 , 14) 

SOUND (-2 0, 8 80, 3, 6 60, 2, -3, 3) 



^ 



•^ 
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PC NOTES 

We have two subprograms that save and 
^ restore the function key assignments in 
Basic and a program that generates 
Piecharts for you this issue. 

The Piechart program requires the Three 
Planes Graphics board. This program allows 
you to title your chart and then input up 
to TOO values and names for each of the 
sections of the chart. We have found that 
charts with more than 20 items start to get 
a little cluttered so it is best to keep 
the number of pie sections limited. If you 
need to constantly generate piecharts with 
more than 20 items you might want to modify 
the program to label each section with a 
letter of the alphabet CA,B,C, etc.). Then 
modify the code to print the label and your 



section name down the sides of the screen. 
If you have the PRTSCN.DEV file installed 
(see the May issue) you can press ALT SHIFT 
PRINT and dump the piechart to your dot 
matrix printer. 

The subprograms FKEY1 and FKEY2 should 
be saved in ASCII format so you can merge 
one of them into your other programs. FKEY1 
has the proper address for Basic Version 
1 . 1 and FKEY2 is set up for Basic Version 
1.2. Both versions save the function keys 
into one 192 byte string. When the keys are 
restored with this subprogram you will have 
to execute a KEY ON to see them. You should 
place one of these in any of your programs 
that change the function keys and execute a 
GOSUB 65500 at the beginning of the program 
and a GOSUB 65520 at the end of the 
program. Have Fun. 




FKETI - MS-Basie Version 1.1 

65500 FOR 1=1587 TO 1778: FKEY$=FKEY$+CHR$CPEEK(I)) : NEXT: RETURN 

65520 FOR 1=1 TO 192: POKE 1+1586, ASCCMID$(FKEY$, I, 1 )) : NEXT: RETURN 

FKEY2 - MS-Basic Version 1.2 

65500 FOR 1=2324 TO 2515: FKEY$=FKEY$+CHR$CPEEK(I)) : NEXT: RETURN 

65520 FOR 1=1 TO 192: POKE I+2323,ASC(MID$CFKEY$,I, 1 ) ) : NEXT: RETURN 



• Save 

' Restore 



Save 
Restore 




PIECHART 

10 
20 

30 

40 

50 

60 

TO 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 
270 

280 

^4r- 



- MS-Baslc Version 1.1 & 1.2 

CLS: KEY OFF '<« TI PC PIECHART >» Version 2.0 

COLOR 7,0,,0: LOCATE,, 0: PRINT: DEFINT I: DEFDBL A-D,X,Y: 
FOR 1=1 TO 16: KEY(I) ON: NEXT: KEYCl4)0FF: KEy(15)0FF 



COM 8-20-84 
DIM A(100),A$C100) 



LINE(40,40)-(680,140),2,BF: 
LINEC48,46)-(672,134),1,BF: 



COLOR 
COLOR 
COLOR 
COLOR 



2: 

7: 
1: 

2: 



6,22: 

8,22: 

1 , 22 : 

14,22: 

24,22: 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



LINE(44,43)-{676,137),7,BF 
LINE(52,49)-C668,131),0,BF 
"TEXAS INSTRUMEN 

" Professional Computer"; 

"PIECHART GENERAT 

" Version 2.0"; 

" < Press Any Key To Continue 

ELSE IF T$<>CHR$C27) GOTO 130 



T S"; 
R"; 



>"; 



LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 
T$=INKEY$: IF T$="" GOTO 110 
RUN "FILEMENU 

T=0: C#=1D-38: CLS: COLOR 6: LINE(0,0)-(719,299) , ,B 
LOCATE 2,1: INPUT " Title of Piechart : ",T$ 
INPUT " Number of Items in Chart: ",N : PRINT: COLOR 4 
FOR 1=1 TO N:INPUT " Numeric Value, Name : ",A(I) ,A$(I) : 
FOR 1=1 TO N: A#(I)=C ACl)/T)»6.2831 8530718#: NEXT: CLS: COLOR 
LINE C0,17)-(719,299),,B: IF T THEN I=40-T/18: LOCATE 2,1: I=I»9 ELSE 200 
LINE(I-28,17)-(T+I+9,17),0: LINE (I-28,7)-(T+I+9,27) . ,B: PRINT T$; 
FOR 1=1 TO N: B#=C#: C#=C#+A#(I): D#=(B#+C#)/2: T=CC#-B#>.079#)»6 
X=360+C0SCD#)»14.3: Y=150-SIN(D#)»7.914: CIRCLE(X,Y), 150, 7+T,-B#,-C#+. 000001 
IF T THEN PAINT(X+C0SCD#)»l43,y-SIN(D#)»79.l4466),I MOD 6+1,1 
T=LEN(A$CI)): IF T THEN COLOR 7,0 ELSE 260 

X=CX+COS(D#)»200-4»LENCA$(I)))\9: Y=CY-SIN(D#)»100)\12+1 

LOCATE Y,X+1: PRINT A$Cl): LINE CX»9,Y«12)-(X«9+9*LEN(A$(I) ) ,Y»12) , 1 

NEXT: BEEP 

A$=INKEY$: IF A$="" THEN 270 ELSE IF A$="N" OR A$="n" THEN 120 

IF A$="Y" OR A$="y" THEN 130 ELSE BEEP: GOTO 270 



T=T+ACI): NEXT 
6: T=LEN(T$)»9 
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